home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / solar boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  821 b   |  23 lines
  1. 10 poke53280,0:poke53281,0:printchr$(147)chr$(14)chr$(8)
  2. 20 gosub61000
  3. 22 poke214,9:print:printtab(11)"[159][211] [207] [204] [193] [210] [211] [195] [207] [208] [197]"
  4. 24 print"[154][193] [206]on-[200]iker's [199]uide to the [211]olar [211]ystem"
  5. 30 print"[144]load"chr$(34)"solarscope"chr$(34)",8"
  6. 40 print"run"
  7. 50 poke631,13:poke632,13:poke633,13:poke198,3
  8. 60 end
  9. 61000 poke214,15:print
  10. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  11. 61120 print"  [152]                                    "
  12. 61130 print"                                      "
  13. 61140 print"                                      "
  14. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #59     "
  15. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  16. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  17. 61180 print"                                      "
  18. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  19. 61200 au$="[211][207][204][193][210][211][195][207][208][197]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  20. 61210 au$="by [194]obby [199]ermino  (c) 1989":poke214,18:print
  21. 61220 printspc(20-len(au$)/2)"[152]"au$""
  22. 61230 return
  23.